; 打印2的次方
(defun power2 (n)
	(do ((i 1 (+ 1 i)) (p 1 p))
		((> i n) p)
		(setf p (* p 2))
		))

(print (power2 (read)))
